home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / language / clisp_e.arc / CONFIG.LSP next >
Lisp/Scheme  |  1991-11-10  |  1KB  |  31 lines
  1. ;;; Functions to be changed on transport
  2.  
  3. (in-package "LISP")
  4. (mapcar #'fmakunbound '(machine-type machine-version machine-instance
  5.                         short-site-name long-site-name edit-file))
  6.  
  7. (defun machine-type () "Atari ST")
  8. (defun machine-version () "1040 ST/F")
  9. (defun machine-instance () "Bruno Haible's home computer")
  10.  
  11. (defun short-site-name () "Karlsruhe")
  12. (defun long-site-name () "Ritterstraße 42, D - W7500 Karlsruhe")
  13.  
  14. ;; (edit-file file) edits a file.
  15. (defun edit-file (file)
  16.   (prog1
  17.     (execute "TEMPUS.PRG" ; the name of the editor
  18.              (namestring file t) ; file as a string in GEMDOS format
  19.              (round (* 0.99 (gc))) ; editor gets 99% of the free memory
  20.     )
  21.     (write-string (coerce '(#\Escape #\E) 'string) ; clear screen
  22.                   *terminal-io*
  23. ) ) )
  24.  
  25. ;; The temporary file LISP creates for editing:
  26. (defparameter tempfile "LISPTEMP.LSP")
  27.  
  28. ;; The list of directories where programs are searched by LOAD etc.:
  29. (defparameter *load-paths* '(#"A:" #"A:\\" #"A:\\...\\"))
  30.  
  31.